This is an R Markdown Notebook. When you execute code within the notebook, the results appear beneath the code.

Try executing this chunk by clicking the Run button within the chunk or by placing your cursor inside it and pressing Cmd+Shift+Enter.


library(tidyverse)
library(readxl)
library(here)
library(janitor)
candy_2015 <- read_excel(here("raw_data/boing-boing-candy-2015.xlsx"))
candy_2016 <- read_excel(here("raw_data/boing-boing-candy-2016.xlsx"))
candy_2017 <- read_excel(here("raw_data/boing-boing-candy-2017.xlsx"))
New names:
* `` -> ...114
candy_2015 <- clean_names(candy_2015)
clean_names(candy_2016)
clean_names(candy_2017)
candy_2015_pivot <- candy_2015 %>%
    pivot_longer(c(butterfinger:york_peppermint_patties, necco_wafers),
                 names_to = "candy", values_to = "rating") %>%
    mutate(
        year = 2015,
        gender = NA,
        country = NA
    )%>%
rename(are_you_going_trick_or_treating = are_you_going_actually_going_trick_or_treating_yourself)%>%
rename(age = how_old_are_you)
removed_columns_candy_2015 <- select(candy_2015_pivot, -contains(c(
  "please",
  "guess_the_number",
  "that_dress",
  "fill_in",
  "betty",
  "which_day",
  "check_all",
  "if_you_squint",
  "sea_salt",
  "font")
))
glimpse(removed_columns_candy_2015)
Rows: 529,220
Columns: 8
$ timestamp                       <dttm> 2015-10-23 08:46:20, 2015-10-23 08:46:20, 2015-10-23 08:46:20, 2015-10-23 0…
$ age                             <chr> "35.0", "35.0", "35.0", "35.0", "35.0", "35.0", "35.0", "35.0", "35.0", "35.…
$ are_you_going_trick_or_treating <chr> "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", "No", "No"…
$ candy                           <chr> "butterfinger", "x100_grand_bar", "anonymous_brown_globs_that_come_in_black_…
$ rating                          <chr> "JOY", NA, "DESPAIR", "JOY", NA, NA, NA, NA, "DESPAIR", "DESPAIR", "DESPAIR"…
$ year                            <dbl> 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015, 2015…
$ gender                          <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
$ country                         <lgl> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, …
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBhbiBbUiBNYXJrZG93bl0oaHR0cDovL3JtYXJrZG93bi5yc3R1ZGlvLmNvbSkgTm90ZWJvb2suIFdoZW4geW91IGV4ZWN1dGUgY29kZSB3aXRoaW4gdGhlIG5vdGVib29rLCB0aGUgcmVzdWx0cyBhcHBlYXIgYmVuZWF0aCB0aGUgY29kZS4gCgpUcnkgZXhlY3V0aW5nIHRoaXMgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpSdW4qIGJ1dHRvbiB3aXRoaW4gdGhlIGNodW5rIG9yIGJ5IHBsYWNpbmcgeW91ciBjdXJzb3IgaW5zaWRlIGl0IGFuZCBwcmVzc2luZyAqQ21kK1NoaWZ0K0VudGVyKi4gCgpgYGB7cn0KCmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KHJlYWR4bCkKbGlicmFyeShoZXJlKQpsaWJyYXJ5KGphbml0b3IpCmBgYAoKYGBge3J9CmNhbmR5XzIwMTUgPC0gcmVhZF9leGNlbChoZXJlKCJyYXdfZGF0YS9ib2luZy1ib2luZy1jYW5keS0yMDE1Lnhsc3giKSkKY2FuZHlfMjAxNiA8LSByZWFkX2V4Y2VsKGhlcmUoInJhd19kYXRhL2JvaW5nLWJvaW5nLWNhbmR5LTIwMTYueGxzeCIpKQpjYW5keV8yMDE3IDwtIHJlYWRfZXhjZWwoaGVyZSgicmF3X2RhdGEvYm9pbmctYm9pbmctY2FuZHktMjAxNy54bHN4IikpCmBgYAoKYGBge3J9CmNhbmR5XzIwMTUgPC0gY2xlYW5fbmFtZXMoY2FuZHlfMjAxNSkKY2xlYW5fbmFtZXMoY2FuZHlfMjAxNikKY2xlYW5fbmFtZXMoY2FuZHlfMjAxNykKYGBgCgpgYGB7cn0KY2FuZHlfMjAxNV9waXZvdCA8LSBjYW5keV8yMDE1ICU+JQogICAgcGl2b3RfbG9uZ2VyKGMoYnV0dGVyZmluZ2VyOnlvcmtfcGVwcGVybWludF9wYXR0aWVzLCBuZWNjb193YWZlcnMpLAogICAgICAgICAgICAgICAgIG5hbWVzX3RvID0gImNhbmR5IiwgdmFsdWVzX3RvID0gInJhdGluZyIpICU+JQogICAgbXV0YXRlKAogICAgICAgIHllYXIgPSAyMDE1LAogICAgICAgIGdlbmRlciA9IE5BLAogICAgICAgIGNvdW50cnkgPSBOQQogICAgKSU+JQpyZW5hbWUoYXJlX3lvdV9nb2luZ190cmlja19vcl90cmVhdGluZyA9IGFyZV95b3VfZ29pbmdfYWN0dWFsbHlfZ29pbmdfdHJpY2tfb3JfdHJlYXRpbmdfeW91cnNlbGYpJT4lCnJlbmFtZShhZ2UgPSBob3dfb2xkX2FyZV95b3UpCmBgYAoKCmBgYHtyfQpyZW1vdmVkX2NvbHVtbnNfY2FuZHlfMjAxNSA8LSBzZWxlY3QoY2FuZHlfMjAxNV9waXZvdCwgLWNvbnRhaW5zKGMoCiAgInBsZWFzZSIsCiAgImd1ZXNzX3RoZV9udW1iZXIiLAogICJ0aGF0X2RyZXNzIiwKICAiZmlsbF9pbiIsCiAgImJldHR5IiwKICAid2hpY2hfZGF5IiwKICAiY2hlY2tfYWxsIiwKICAiaWZfeW91X3NxdWludCIsCiAgInNlYV9zYWx0IiwKICAiZm9udCIpCikpCmBgYAoKYGBge3J9CmdsaW1wc2UocmVtb3ZlZF9jb2x1bW5zX2NhbmR5XzIwMTUpCmNvZQpgYGA=